home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ MSDOSSYS 1.xpl < prev    next >
Text File  |  1998-08-08  |  2KB  |  101 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="General Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Start Windows automatically"
  8. "TEXT 2"="Display Windows logo while booting"
  9. "TEXT 3"="Enable bootmenu"
  10. "TEXT 4"="Display bootmenu before starting"
  11. "TEXT 5"="Display warning before using "Safe Mode""
  12. "DESCRIPTION 1"="Change the options here to control what Windows 95 does on bootup."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  16. "COMMENT 2"="Version 1.1"
  17.  
  18. 'Declaration of some constants
  19. sF="C:\MSDOS.SYS"
  20. sO="OPTIONS"
  21.  
  22. 'Called when the Plugin is started
  23. Sub Plugin_Initialize
  24.  If GetWinVer=1 or GetWinVer=3 then
  25.   Call FileSetAttribute(sf,"S-")
  26.   Call FileSetAttribute(sf,"R-")
  27.   Call FileSetAttribute(sf,"H-")
  28.  
  29.  
  30.   i=IniReadValue(sf,so,"BootGUI")
  31.   if i=1 then SetUIElement 1,true
  32.  
  33.   i=IniReadValue(sf,so,"Logo")
  34.   if i=1 then SetUiElement 2,true
  35.  
  36.   i=IniReadValue(sf,so,"BootKeys")
  37.   if i=1 then SetUiElement 3,true
  38.  
  39.   i=IniReadValue(sf,so,"BootMenu")
  40.   if i=1 then SetUiElement 4,true
  41.  
  42.   i=IniReadValue(sf,so,"BootWarn")
  43.   if i=1 then SetUiElement 5,true
  44.  
  45.  else
  46.   Disable
  47.  end if
  48. End Sub
  49.  
  50. 'Called when the Plugin should validate the Data the user has entered
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. 'Called when the Plugin should apply the changes
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  
  57.  b=GetUIElement(1)
  58.  if b=true then
  59.   Call IniWriteValue(sf,so,"BootGUI",1)
  60.  else
  61.   Call IniWriteValue(sf,so,"BootGUI",0)
  62.  end if
  63.  
  64.  b=GetUIElement(2)
  65.  if b=true then
  66.   Call IniWriteValue(sf,so,"Logo",1)
  67.  else
  68.   Call IniWriteValue(sf,so,"Logo",0)
  69.  end if
  70.  
  71.  b=GetUIElement(3)
  72.  if b=true then
  73.   Call IniWriteValue(sf,so,"BootKeys",1)
  74.  else
  75.   Call IniWriteValue(sf,so,"BootKeys",0)
  76.  end if
  77.  
  78.  b=GetUIElement(4)
  79.  if b=true then
  80.   Call IniWriteValue(sf,so,"BootMenu",1)
  81.  else
  82.   Call IniWriteValue(sf,so,"BootMenu",0)
  83.  end if
  84.  
  85.  b=GetUIElement(5)
  86.  if b=true then
  87.   Call IniWriteValue(sf,so,"BootWarn",1)
  88.  else
  89.   Call IniWriteValue(sf,so,"BootWarn",0)
  90.  end if
  91.  
  92.  Restart
  93. End Sub
  94.  
  95. 'Called when the Plugin is about to be removed from memory
  96. Sub Plugin_Terminate
  97.  Call FileSetAttribute(sf,"S+")
  98.  Call FileSetAttribute(sf,"R+")
  99.  Call FileSetAttribute(sf,"H+")
  100. End Sub
  101.